home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagg_m.zip / MATH.SWG / 0072_Prime Numbers.pas < prev    next >
Pascal/Delphi Source File  |  1994-08-24  |  850b  |  29 lines
  1. {
  2. I'm studying pascal on my own and was given an assignment to determine if a
  3. positive number is prime. This was in a chapter where functions were
  4. discussed. I've struggled with this problem for a week and have given up. The
  5. following code is the best I can come up with. It is not correct. Would
  6. someone please evaluate this and tell me what is wrong with it?
  7. }
  8.  
  9. PROGRAM PrimeNumbers;
  10. { Exercise to determine if a positive number is a prime }
  11. VAR x : WORD;
  12.  
  13. FUNCTION prime (p : WORD) : BOOLEAN;
  14. BEGIN { Prime }
  15.  prime := (p MOD 2 <> 0) AND (p MOD 3 <> 0) AND (p MOD 5 <> 0)
  16. END; { Prime }
  17.  
  18. BEGIN { Main }
  19.  REPEAT
  20.    WRITE ('Enter a positive number. 0 to quit: ');
  21.    READLN (x);
  22.    IF prime (x) THEN
  23.       WRITELN (x, ' is a prime number')
  24.    ELSE
  25.       WRITELN (x, ' is NOT prime');
  26.  UNTIL
  27.        x = 0
  28.  END. { Main }
  29.